COMMENT ⊗   VALID 00003 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	αβxcomment REF - FIND. finds the current search string in a set of files.
C00007 00003	αβxcomment -ds- double spacing macro↔
C00009 ENDMK
C⊗;
αβxcomment REF - FIND. finds the current search string in a set of files.
Fill in your own file names for FOO.N below (in your own copy of the macro, please)
and get the extended "find" command to be set to your string.  Then execute
the macro FIND.  The first time it finds something, it will stop.  To find the
other occurences in that file, use *.  To go on to the next file, use
xRESUME. ⊗↔

αβxdefine c0P⊗↔
αβεPREFAC.PUB[BOO,JMC]⊗↔αβvαβ*αβxabort⊗↔αβ⊗↓
αβxdefine c0⊗↔
αβεPREFAC[BOO,JMC]⊗↔αβvαβ*αβxabort⊗↔αβ⊗↓
αβxdefine c1P⊗↔
αβεREADIN.PUB[BOO,JMC]⊗↔αβvαβ*αβxabort⊗↔αβ⊗↓
αβxdefine c1⊗↔
αβεREADIN[BOO,JMC]⊗↔αβvαβ*αβxabort⊗↔αβ⊗↓
αβxdefine c2P⊗↔
αβεWRITIN.PUB[BOO,JMC]⊗↔αβvαβ*αβxabort⊗↔αβ⊗↓
αβxdefine c2⊗↔
αβεWRITIN[BOO,JMC]⊗↔αβvαβ*αβxabort⊗↔αβ⊗↓
αβxdefine c3P⊗↔
αβεPROVIN.PUB[BOO,JMC]⊗↔αβvαβ*αβxabort⊗↔αβ⊗↓
αβxdefine c3⊗↔
αβεPROVIN[BOO,JMC]⊗↔αβvαβ*αβxabort⊗↔αβ⊗↓
αβxdefine c4P⊗↔
αβεIMPURE.PUB[BOO,JMC]⊗↔αβvαβ*αβxabort⊗↔αβ⊗↓
αβxdefine c4⊗↔
αβεIMPURE[BOO,JMC]⊗↔αβvαβ*αβxabort⊗↔αβ⊗↓
αβxdefine c5P⊗↔
αβεMACHIN.PUB[BOO,JMC]⊗↔αβvαβ*αβxabort⊗↔αβ⊗↓
αβxdefine c5⊗↔
αβεMACHIN[BOO,JMC]⊗↔αβvαβ*αβxabort⊗↔αβ⊗↓
αβxdefine c6P⊗↔
αβεSEARCH.PUB[BOO,JMC]⊗↔αβvαβ*αβxabort⊗↔αβ⊗↓
αβxdefine c6⊗↔
αβεSEARCH[BOO,JMC]⊗↔αβvαβ*αβxabort⊗↔αβ⊗↓
αβxdefine c7P⊗↔
αβεEXTEND.PUB[BOO,JMC]⊗↔αβvαβ*αβxabort⊗↔αβ⊗↓
αβxdefine c7⊗↔
αβεEXTEND[BOO,JMC]⊗↔αβvαβ*αβxabort⊗↔αβ⊗↓
αβxdefine c8P⊗↔
αβεABSNTX.PUB[BOO,JMC]⊗↔αβvαβ*αβxabort⊗↔αβ⊗↓
αβxdefine c8⊗↔
αβεABSNTX[BOO,JMC]⊗↔αβvαβ*αβxabort⊗↔αβ⊗↓
αβxdefine c9P⊗↔
αβεCOMPIL.PUB[BOO,JMC]⊗↔αβvαβ*αβxabort⊗↔αβ⊗↓
αβxdefine c9⊗↔
αβεCOMPIL[BOO,JMC]⊗↔αβvαβ*αβxabort⊗↔αβ⊗↓
αβxdefine c10P⊗↔
αβεCOMPUT.PUB[BOO,JMC]⊗↔αβvαβ*αβxabort⊗↔αβ⊗↓
αβxdefine c10⊗↔
αβεCOMPUT[BOO,JMC]⊗↔αβvαβ*αβxabort⊗↔αβ⊗↓
αβxdefine bibP⊗↔
αβεLSPBIB.PUB[BOO,JMC]⊗↔αβvαβ*αβxabort⊗↔αβ⊗↓
αβxdefine bib⊗↔
αβεLSPBIB[BOO,JMC]⊗↔αβvαβ*αβxabort⊗↔αβ⊗↓
αβxdefine a1⊗↔
αβεLCOMAP[BOO,JMC]⊗↔αβvαβ*αβxabort⊗↔αβ⊗↓

αβxdefine l1⊗↔
αβλLISP.RPG[S,DOC]⊗↔αβvαβ*αβxabort⊗↔αβ⊗↓
αβxdefine l2⊗↔
αβλLISP16.WD[S,DOC]⊗↔αβvαβ*αβxabort⊗↔αβ⊗↓
αβxdefine l3⊗↔
αβλILISP.UCI[UP,DOC]⊗↔αβvαβ*αβxabort⊗↔αβ⊗↓
αβxdefine l4⊗↔
αβλLSPARC.RPG[UP,DOC]⊗↔αβvαβ*αβxabort⊗↔αβ⊗↓

αβxcomment --- BFALL find it in the chapter. /.PUB files ⊗↔
αβxdefine bfall⊗↔
αβx stopone⊗↔
αβz c0P⊗↔
αβz c0⊗↔
αβz c1P⊗↔
αβz c1⊗↔
αβz c2P⊗↔
αβz c2⊗↔
αβz c3P⊗↔
αβz c3⊗↔
αβz c4P⊗↔
αβz c4⊗↔
αβz c5P⊗↔
αβz c5⊗↔
αβz c6P⊗↔
αβz c6⊗↔
αβz c7P⊗↔
αβz c7⊗↔
αβz c8P⊗↔
αβz c8⊗↔
αβz c9P⊗↔
αβz c9⊗↔
αβz c10P⊗↔
αβz c10⊗↔
αβz bibP⊗↔
αβz bib⊗↔
αβz a1⊗↔
αβ⊗↓

αβxcomment --- BF find it in the chapter (text) files ⊗↔
αβxdefine bf⊗↔
αβx stopone⊗↔
αβz c0⊗↔
αβz c1⊗↔
αβz c2⊗↔
αβz c3⊗↔
αβz c4⊗↔
αβz c5⊗↔
αβz c6⊗↔
αβz c7⊗↔
αβz c8⊗↔
αβz c9⊗↔
αβz c10⊗↔
αβz bib⊗↔
αβz a1⊗↔
αβ⊗↓

αβxcomment --- BFPUB find it in the chapter.PUB files ⊗↔
αβxdefine bfpub⊗↔
αβz c0P⊗↔
αβz c1P⊗↔
αβz c2P⊗↔
αβz c3P⊗↔
αβz c4P⊗↔
αβz c5P⊗↔
αβz c6P⊗↔
αβz c7P⊗↔
αβz c8P⊗↔
αβz c9P⊗↔
αβz c10P⊗↔
αβz bibP⊗↔
αβ⊗↓

αβxcomment --- LF find it in the LISP on line documentation files ⊗↔
αβxdefine lf⊗↔
αβz l1⊗↔
αβz l2⊗↔
αβz l3⊗↔
αβz l4⊗↔
αβ⊗↓
αβxcomment -ds- double spacing macro⊗↔
αxdefine ds⊗↔
⊗↔β⊗↔
αβ⊗↓

αβxcomment 
-CLT- macros to collect all lines where labels are defined.
chlab only works if all .ss( headers are on line one
sublab only collect all labels of a subsection if it is on one page
⊗↔

αxdefine fcnlab⊗↔
αf!fcn⊗↔α+αC
αβ⊗↓

αxdefine eqnlab⊗↔
αf!eqn⊗↔α+αC
αβ⊗↓

αxdefine figlab⊗↔
αf!fig⊗↔α+αC
αβ⊗↓

αxdefine tablab⊗↔
αf!table⊗↔α+αC
αβ⊗↓

αxdefine sublab⊗↔
αxstopone⊗↔
αxf .ss(⊗↔α+αC⊗↔
α∞αzfcnlab⊗↔
α2αL
α∞αzeqnlab⊗↔
α2αL
α∞αzfiglab⊗↔
α2αL
α∞αztablab⊗↔
αxstopall⊗↔
αβ⊗↓

αβxdefine chlab⊗↔
αxf .s(⊗↔ α+αC⊗↔
αxstopone⊗↔
α∞αzsublab⊗↔
αxstopall⊗↔
αβ⊗↓